Top 10k strings from Black Jack (19xx)(-).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   1 v(i)=c(i)-13
   1 v$="A23456789TJQK"
   1 total=v(cd-1
   1 s$="HCDS":
   1 pt=pt+inct:
   1 playersgo=1
   1 playersgo=0
   1 inct=v(cd):
   1 ht=ht+inct:
   1 c(i)=c(r):
   1 I1,c1;v$(vn);" ";
   1 A23456789TJQK
   1 ;"you bust!  The house wins;":
   1 ;"You stick with ",pt
   1 ;"You have exactly 21!":
   1 ;"You gain `";2
   1 ;"The house wins":
   1 ;"The house bust!  You win.":
   1 ;"That's it.  You have `";m:
   1 ;"Sum:";total
   1 ;"PLEASE WAIT"
   1 ;"PLAYER";
   1 ;"It is a draw":
   1 ;"HAND no.";g;".The bet is `";b
   1 ;"B L A C K J A C K"
   1 *(cd-cd1+1
   1 "Press ENTER to stick, any other key to twist";
   1 "Press ENTER to play again,or 0 to stop";
   1 "Press ENTER to continue";